.Offset(X, Y) ƽơ XƽơƽƣYƽơƽ

Sub Test1()
    'ѡСѡԪԪ
    'ActiveSheet.Cells(3, 3).Offset(0, 0).Select 'Cells(3, 3)Ԫ񡪡ûƽ
    
    'ActiveSheet.Cells(3, 3).Offset(-1, 0).Select 'Cells(3, 3)һԪ
    'ActiveSheet.Cells(3, 3).Offset(0, -1).Select 'Cells(3, 3)һԪ
    
    
    'ActiveSheet.Cells(3, 3).Offset(1, 0).Select 'Cells(3, 3)һԪ
    'ActiveSheet.Cells(3, 3).Offset(0, 1).Select 'Cells(3, 3)ұһԪ
    
    ActiveSheet.Cells(3, 3).Offset(1, 1).Select 'Cells(3, 3)һһԪ
    
End Sub
Sub Test2() 'Offset(ƽƵԪ, ƽƵԪ)
    'ѡСѡԪԪ
    Dim Arr
    Dim H, L As Integer
    'Arr = ActiveSheet.UsedRange.Offset(0, 0).Value 'ѡȫʵ
    'ActiveSheet.UsedRange.Offset(0, 0).Select 'ѡȫʵ
    
    'Arr = ActiveSheet.UsedRange.Offset(1, 0).Value 'ѡеһʵ
    'ActiveSheet.UsedRange.Offset(1, 0).Select 'ѡеһʵ
    
    'Arr = ActiveSheet.UsedRange.Offset(0, 1).Value 'ѡдӵ2пʼҵʵұ߼һСʵСƽ1
    'ActiveSheet.UsedRange.Offset(0, 1).Select 'ѡдӵ2пʼҵʵұ߼һСʵСƽ1
    
    Arr = ActiveSheet.UsedRange.Offset(1, 1).Value 'ѡдӵ2С2пʼ¡ҵʵһСұ߼һСʵСƽһСƽ1
    ActiveSheet.UsedRange.Offset(1, 1).Select 'ѡдӵ2С2пʼ¡ҵʵһСұ߼һСʵСƽһСƽ1
    
    H = UBound(Arr)
    L = UBound(Arr, 2)
    
    MsgBox H, , ""
    MsgBox L, , ""
End Sub

